home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Plus Extra 1996 #5
/
Amiga Plus Extra 1996 May.iso
/
editoren
/
musictex
/
metafontinput
/
musicbrg.mf
< prev
next >
Wrap
Text File
|
1996-08-01
|
1KB
|
54 lines
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% this is musicbrg.mf
%
% Version 0.99 [August 93] Andreas Egler
% [January] Daniel Taupin
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
transform t;
path p;
pen thin_pen, med_pen, thick_pen;
thin_pen:= pencircle scaled .15pt;
med_pen:= pencircle scaled thin;
thick_pen:= pencircle scaled med;
apog_fact=0.75;
%%%%%%%%%%%%%%
% big braces %
%%%%%%%%%%%%%%
%
% change firstbrace and lastbrace if you need smaller or larger braces
%
firstbrace:=20; % smallest brace is 2*20 pt (\simeq 14mm)
lastbrace:=99; % largest brace is 2*99 pt (\simeq 69mm)
def bigbrace(expr v) =
vwidth:=v*pt;
hwidth:=.2vwidth;
actwidth:=.035vwidth;
x1=hwidth; y1=vwidth;
x2l=.2hwidth; y2=.75vwidth;
x3r=.8hwidth; y3=1/3vwidth;
x4=0; y4=0;
penpos1(thinwidth,-90);
penpos2(1.25med+.8actwidth,40);
penpos3(1.25med+actwidth,45);
penpos4(.5thin+thinwidth,-90);
currentpen:= pencircle;
penstroke z1e..z2e..z3e..{left+sw}z4e;
addto currentpicture also currentpicture reflectedabout (origin, right);
penlabels(1,2,3,4);
enddef;
for v=firstbrace upto lastbrace :
beginchar (v-firstbrace, .2v*pt#, 0, 0);
bigbrace (v);
endchar;
endfor;